home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacHack 1994
/
MacHack 1994.toast
/
MacHack™94
/
Talks & Papers
/
Timothy Knox
/
Help
/
Help Files
/
Constraints
/
Lyndon-Johnson
< prev
next >
Wrap
Text File
|
1994-06-24
|
1KB
|
43 lines
;LYNDON*B=JOHNSON
(c)
;;;Variables
( r0 b n r1 o r2 r3 s d r4 h y l j)
;;;Constraints
((=? (* n b) (+ n (* 10 r0)))
(=? (+ (* o b) r0) (+ o (* 10 r1)))
(=? (+ (* d b) r1) (+ s (* 10 r2)))
(=? (+ (* n b) r2) (+ n (* 10 r3)))
(=? (+ (* y b) r3) (+ h (* 10 r4)))
(=? (+ (* l b) r4) (+ o (* 10 j)))
(<>? l 0) (<>? b 0) (<>? j 0)
(<>? l y) (<>? l n) (<>? l d)
(<>? l o) (<>? l b) (<>? l j)
(<>? l h) (<>? l s) (<>? y n)
(<>? y d) (<>? y o) (<>? y b)
(<>? y j) (<>? y h) (<>? y s)
(<>? n d) (<>? n o) (<>? n b)
(<>? n j) (<>? n h) (<>? n s)
(<>? d o) (<>? d b) (<>? d j)
(<>? d h) (<>? d s) (<>? o b)
(<>? o j) (<>? o h) (<>? o s)
(<>? b j) (<>? b h) (<>? b s)
(<>? j h) (<>? j s) (<>? h s))
;;;Domains
((0 1 2 3 4 5 6 7)
(0 1 2 3 4 5 6 7 8 9)
(0 1 2 3 4 5 6 7 8 9)
(0 1 2 3 4 5 6 7)
(0 1 2 3 4 5 6 7 8 9)
(0 1 2 3 4 5 6 7)
(0 1 2 3 4 5 6 7)
(0 1 2 3 4 5 6 7 8 9)
(0 1 2 3 4 5 6 7 8 9)
(0 1 2 3 4 5 6 7)
(0 1 2 3 4 5 6 7 8 9)
(0 1 2 3 4 5 6 7 8 9)
(0 1 2 3 4 5 6 7 8 9)
(0 1 2 3 4 5 6 7 8 9))